object UniMainModule: TUniMainModule
  OldCreateOrder = False
  Theme = 'blue'
  MonitoredKeys.Keys = <>
  Height = 150
  Width = 564
  object SQLConnection_Reg1: TSQLConnection
    ConnectionName = 'FBConnection'
    DriverName = 'Firebird'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'C:\Program Files\Embarcadero\RAD Studio\8.0\bin\fbclient.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverUnit=DBXFirebird'
      
        'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver150.' +
        'bpl'
      
        'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
        'nd.Data.DbxCommonDriver,Version=15.0.0.0,Culture=neutral,PublicK' +
        'eyToken=91d62ebb5b0d1b1b'
      
        'MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFire' +
        'birdDriver150.bpl'
      
        'MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMetaDataCommandF' +
        'actory,Borland.Data.DbxFirebirdDriver,Version=15.0.0.0,Culture=n' +
        'eutral,PublicKeyToken=91d62ebb5b0d1b1b'
      'GetDriverFunc=getSQLDriverINTERBASE'
      'LibraryName=dbxfb.dll'
      'VendorLib=fbclient.DLL'
      'Role=RoleName'
      'MaxBlobSize=-1'
      'TrimChar=False'
      'DriverName=Firebird'
      'Database=C:\PROYECTO FINAL\turistik.fdb'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=3'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'IsolationLevel=ReadCommitted'
      'Trim Char=False'
      
        'ConnectionString=DriverUnit=DBXFirebird,DriverPackageLoader=TDBX' +
        'DynalinkDriverLoader,DbxCommonDriver150.bpl,DriverAssemblyLoader' +
        '=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDri' +
        'ver,Version=15.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d' +
        '1b1b,MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,Db' +
        'xFirebirdDriver150.bpl,MetaDataAssemblyLoader=Borland.Data.TDBXF' +
        'irebirdMetaDataCommandFactory,Borland.Data.DbxFirebirdDriver,Ver' +
        'sion=15.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b,Ge' +
        'tDriverFunc=getSQLDriverINTERBASE,LibraryName=dbxfb.dll,VendorLi' +
        'b=fbclient.DLL,Role=RoleName,MaxBlobSize=-1,TrimChar=False,Drive' +
        'rName=Firebird,Database=database.fdb,RoleName=RoleName,User_Name' +
        '=sysdba,Password=masterkey,ServerCharSet=,SQLDialect=3,ErrorReso' +
        'urceFile=,LocaleCode=0000,BlobSize=-1,CommitRetain=False,WaitOnL' +
        'ocks=True,IsolationLevel=ReadCommitted,Trim Char=False,Connectio' +
        'nString=DriverUnit=DBXFirebird,DriverPackageLoader=TDBXDynalinkD' +
        'riverLoader,DbxCommonDriver150.bpl,DriverAssemblyLoader=Borland.' +
        'Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Versi' +
        'on=15.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b,Meta' +
        'DataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFirebird' +
        'Driver150.bpl,MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMe' +
        'taDataCommandFactory,Borland.Data.DbxFirebirdDriver,Version=15.0' +
        '.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b,GetDriverFu' +
        'nc=getSQLDriverINTERBASE,LibraryName=dbxfb.dll,VendorLib=fbclien' +
        't.DLL,Role=RoleName,MaxBlobSize=-1,TrimChar=False,DriverName=Fir' +
        'ebird,Database=database.fdb,RoleName=RoleName,User_Name=sysdba,P' +
        'assword=masterkey,ServerCharSet=,SQLDialect=3,ErrorResourceFile=' +
        ',LocaleCode=0000,BlobSize=-1,CommitRetain=False,WaitOnLocks=True' +
        ',IsolationLevel=ReadCommitted,Trim Char=False')
    VendorLib = 'fbclient.DLL'
    Connected = True
    Left = 40
    Top = 8
  end
  object SQLQuery_Reg1: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM PERSONAS_USUARIOS')
    SQLConnection = SQLConnection_Reg1
    Left = 152
    Top = 8
    object SQLQuery_Reg1LOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
    end
    object SQLQuery_Reg1COD_GENERAL_USU: TLargeintField
      FieldName = 'COD_GENERAL_USU'
      Required = True
    end
    object SQLQuery_Reg1CLAVE: TStringField
      FieldName = 'CLAVE'
      Required = True
    end
    object SQLQuery_Reg1CADUCA: TDateField
      FieldName = 'CADUCA'
    end
    object SQLQuery_Reg1PERFIL_PRIVILEGIO: TStringField
      FieldName = 'PERFIL_PRIVILEGIO'
      Size = 30
    end
    object SQLQuery_Reg1FECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
    end
    object SQLQuery_Reg1OPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 100
    end
  end
  object DataSetProvider_Reg1: TDataSetProvider
    DataSet = SQLQuery_Reg1
    Left = 152
    Top = 64
  end
  object ClientDataSet_Reg: TClientDataSet
    Aggregates = <
      item
        Visible = False
      end>
    AggregatesActive = True
    FieldDefs = <
      item
        Name = 'LOGIN'
        Attributes = [faRequired]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'COD_GENERAL_USU'
        Attributes = [faRequired]
        DataType = ftLargeint
      end
      item
        Name = 'CLAVE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'CADUCA'
        DataType = ftDate
      end
      item
        Name = 'PERFIL_PRIVILEGIO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FECHA_CARGA'
        DataType = ftDate
      end
      item
        Name = 'OPERADOR'
        DataType = ftString
        Size = 100
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end
      item
        Name = 'ClientDataSet_RegIndex1'
      end>
    Params = <>
    ProviderName = 'DataSetProvider_Reg1'
    StoreDefs = True
    Left = 240
    Top = 8
    object ClientDataSet_RegLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
    end
    object ClientDataSet_RegCOD_GENERAL_USU: TLargeintField
      FieldName = 'COD_GENERAL_USU'
      Required = True
    end
    object ClientDataSet_RegCLAVE: TStringField
      FieldName = 'CLAVE'
      Required = True
    end
    object ClientDataSet_RegCADUCA: TDateField
      FieldName = 'CADUCA'
    end
    object ClientDataSet_RegPERFIL_PRIVILEGIO: TStringField
      FieldName = 'PERFIL_PRIVILEGIO'
      Size = 30
    end
    object ClientDataSet_RegFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
    end
    object ClientDataSet_RegOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 100
    end
  end
  object qryCodGeneral: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select first 1 a.cod_general'
      'from personas_general a'
      'order by a.cod_general desc')
    SQLConnection = SQLConnection_Reg1
    Left = 344
    Top = 8
  end
  object cdsCodGeneral: TClientDataSet
    Aggregates = <
      item
        Visible = False
      end>
    AggregatesActive = True
    FieldDefs = <
      item
        Name = 'COD_GENERAL'
        Attributes = [faRequired]
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end
      item
        Name = 'ClientDataSet_RegIndex1'
      end>
    Params = <>
    ProviderName = 'provCodGeneral'
    StoreDefs = True
    Left = 424
    Top = 8
    object cdsCodGeneralCOD_GENERAL: TIntegerField
      FieldName = 'COD_GENERAL'
      Required = True
    end
  end
  object provCodGeneral: TDataSetProvider
    DataSet = qryCodGeneral
    Left = 344
    Top = 72
  end
end
